Public Class InstalledProduct

    Private _code As String = ""
    Private _location As String = ""

    Public ReadOnly Property ProductCode() As String
        Get
            Return _code
        End Get
    End Property

    Public ReadOnly Property Location() As String
        Get
            Return _location
        End Get
    End Property

    Public Sub New(ByVal productCode As String, _
                   ByVal location As String)

        _code = productCode
        _location = location

    End Sub

End Class
